lgt_VS_VS Function

private elemental function lgt_VS_VS(string_a, string_b) result(comp)

Compare (LGT) two varying strings

Arguments

Type IntentOptional Attributes Name
type(varying_string), intent(in) :: string_a
type(varying_string), intent(in) :: string_b

Return Value logical


Source Code

  elemental function lgt_VS_VS (string_a, string_b) result (comp)

    type(varying_string), intent(in) :: string_a
    type(varying_string), intent(in) :: string_b
    logical                          :: comp


    comp = LGT(char(string_a), char(string_b))

! Finish

    return

  end function lgt_VS_VS